home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Grab Bag
/
Shareware Grab Bag.iso
/
090
/
byt85feb.lbr
/
FOUREXT.BAS
< prev
next >
Wrap
BASIC Source File
|
1985-09-15
|
384b
|
14 lines
140 'STRAIGHT LINE CALCULATION
150 S1=0:S2=0
160 D=INT(N/10)
170 FOR J=0 TO D-1
180 S1=S1+X(J)
190 S2=S2+X(N-J-1)
200 NEXT J
210 X1=S1/D:X2=S2/D
220 M=(X2-X1)/(N-D)
230 B=(X1+X2)/2-M*N/2
270 X(J)=X(J)-M*J-B
970 X1(0)=X1(0)+B
1210 X1(J)=X1(J)+M*J+B